home *** CD-ROM | disk | FTP | other *** search
- on mouseDown
- global PlaySpeed, indexGridMode, slideScale
- StopPLay()
- LeavePagePrep()
- BtnDown()
- if indexGridMode then
- incMasterIndex()
- dwell(20)
- repeat while stillDown()
- incMasterIndex()
- dwell(PlaySpeed)
- end repeat
- else
- incQTFrame()
- dwell(20)
- repeat while stillDown()
- incQTFrame()
- dwell(PlaySpeed)
- end repeat
- BtnUp()
- end if
- end
-
- on incQTFrame
- set T to the movieTime of sprite 30
- if T < (the stopTime of sprite 30 - 1) then
- set the movieTime of sprite 30 to T + 1
- else
- set the movieTime of sprite 30 to 0
- end if
- UpdateFrameStats()
- updateQTSlider()
- updateStage()
- end
-
- on incMasterIndex
- global indexPage, indexEnd
- if indexPage < indexEnd then
- set indexPage to indexPage + 1
- else
- set indexPage to 1
- end if
- go(marker(0) + indexPage)
- indexFrameUpdate()
- end
-
- on myHelp
- return "Click once to view next; Click and hold to scan"
- end
-